/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_07 / clocklib

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 41 f4 20 3e 20 | 24 2e 52 65 73 6f 75 72 |...A. > |$.Resour|
|00000010| 63 65 73 2e 43 6c 6f 63 | 6b 4c 69 62 20 3a 20 4c |ces.Cloc|kLib : L|
|00000020| 69 62 72 61 72 79 20 63 | 6c 6f 63 6b 20 a9 20 52 |ibrary c|lock . R|
|00000030| 2e 41 2e 41 76 65 72 69 | 6c 6c 2c 20 31 39 38 38 |.A.Averi|ll, 1988|
|00000040| 2e 0d 00 14 04 0d 00 1e | 26 f4 20 a9 20 52 69 63 |........|&. . Ric|
|00000050| 68 61 72 64 20 41 6e 74 | 68 6f 6e 79 20 41 76 65 |hard Ant|hony Ave|
|00000060| 72 69 6c 6c 2c 20 31 39 | 38 38 2e 0d 00 28 04 0d |rill, 19|88...(..|
|00000070| 00 32 04 0d 00 3c 13 dd | 20 f2 63 72 65 61 74 65 |.2...<..| .create|
|00000080| 5f 63 6c 6f 63 6b 0d 00 | 46 4e 63 6c 6f 63 6b 25 |_clock..|FNclock%|
|00000090| 3d a4 73 79 73 5f 64 65 | 66 69 6e 65 77 69 6e 64 |=.sys_de|finewind|
|000000a0| 6f 77 28 22 43 6c 6f 63 | 6b 22 2c 26 34 33 2c 6d |ow("Cloc|k",&43,m|
|000000b0| 65 6e 75 77 6f 72 6b 5f | 66 67 63 6f 6c 2c 38 2c |enuwork_|fgcol,8,|
|000000c0| 36 34 30 2c 36 34 30 2c | 30 2c 30 2c 36 34 30 2c |640,640,|0,0,640,|
|000000d0| 36 34 30 29 0d 00 50 32 | f2 73 79 73 5f 6f 70 65 |640)..P2|.sys_ope|
|000000e0| 6e 77 69 6e 64 6f 77 28 | 63 6c 6f 63 6b 25 2c 33 |nwindow(|clock%,3|
|000000f0| 32 30 2c 31 39 30 2c 39 | 36 30 2c 38 33 30 2c 30 |20,190,9|60,830,0|
|00000100| 2c 30 2c 2d 31 29 0d 00 | 5a 12 61 74 74 65 6e 64 |,0,-1)..|Z.attend|
|00000110| 63 6c 6f 63 6b 25 3d b9 | 0d 00 64 0d 64 69 76 31 |clock%=.|..d.div1|
|00000120| 32 3d 36 2f af 0d 00 6e | 0e 64 69 76 36 30 3d 33 |2=6/...n|.div60=3|
|00000130| 30 2f af 0d 00 78 0d 75 | 70 64 61 74 65 25 3d a3 |0/...x.u|pdate%=.|
|00000140| 0d 00 82 05 e1 0d 00 8c | 04 0d 00 96 13 dd 20 f2 |........|...... .|
|00000150| 72 65 64 72 61 77 5f 63 | 6c 6f 63 6b 0d 00 a0 12 |redraw_c|lock....|
|00000160| f4 50 52 4f 43 69 6e 66 | 6f 28 62 2b 34 29 0d 00 |.PROCinf|o(b+4)..|
|00000170| aa 10 f4 57 48 49 4c 45 | 20 6d 6f 72 65 25 0d 00 |...WHILE| more%..|
|00000180| ab 0d 75 70 64 61 74 65 | 25 3d a3 0d 00 ac 11 f2 |..update|%=......|
|00000190| 75 70 64 61 74 65 5f 63 | 6c 6f 63 6b 0d 00 b4 0b |update_c|lock....|
|000001a0| f4 47 43 4f 4c 20 30 0d | 00 b5 04 0d 00 be 24 f4 |.GCOL 0.|......$.|
|000001b0| 43 49 52 43 4c 45 20 46 | 49 4c 4c 20 62 78 25 2b |CIRCLE F|ILL bx%+|
|000001c0| 33 32 30 2c 62 79 25 2d | 33 32 30 2c 32 38 30 0d |320,by%-|320,280.|
|000001d0| 00 c8 1a f4 53 59 53 20 | 47 65 74 52 2c 30 2c 62 |....SYS |GetR,0,b|
|000001e0| 20 54 4f 20 6d 6f 72 65 | 25 0d 00 d2 0d f4 45 4e | TO more|%.....EN|
|000001f0| 44 57 48 49 4c 45 0d 00 | dc 05 e1 0d 00 e6 04 0d |DWHILE..|........|
|00000200| 00 f0 13 dd 20 f2 75 70 | 64 61 74 65 5f 63 6c 6f |.... .up|date_clo|
|00000210| 63 6b 0d 00 fa 93 ea 20 | 63 65 25 2c 68 78 2c 68 |ck..... |ce%,hx,h|
|00000220| 79 2c 6d 78 2c 6d 79 2c | 73 6c 78 25 2c 73 6c 79 |y,mx,my,|slx%,sly|
|00000230| 25 2c 73 68 78 25 2c 73 | 68 79 25 2c 6d 6c 78 25 |%,shx%,s|hy%,mlx%|
|00000240| 2c 6d 6c 79 25 2c 6d 68 | 78 25 2c 6d 68 79 25 2c |,mly%,mh|x%,mhy%,|
|00000250| 73 65 63 2c 6d 69 6e 2c | 68 72 73 2c 68 6c 78 25 |sec,min,|hrs,hlx%|
|00000260| 2c 68 6c 79 25 2c 68 68 | 78 25 2c 68 68 79 25 2c |,hly%,hh|x%,hhy%,|
|00000270| 61 68 78 25 2c 61 68 79 | 25 2c 61 6d 78 25 2c 61 |ahx%,ahy|%,amx%,a|
|00000280| 6d 79 25 2c 61 73 78 25 | 2c 61 73 79 25 2c 68 78 |my%,asx%|,asy%,hx|
|00000290| 25 2c 68 79 25 2c 6d 78 | 25 2c 6d 79 25 2c 73 78 |%,hy%,mx|%,my%,sx|
|000002a0| 25 2c 73 79 25 0d 01 04 | 0b 63 65 25 3d 33 32 30 |%,sy%...|.ce%=320|
|000002b0| 0d 01 0e 26 e7 20 c2 91 | 24 2c 38 29 3c 3e 63 6c |...&. ..|$,8)<>cl|
|000002c0| 6f 63 6b 74 65 78 74 24 | 20 84 20 75 70 64 61 74 |ocktext$| . updat|
|000002d0| 65 25 3d a3 20 8c 0d 01 | 18 15 63 6c 6f 63 6b 74 |e%=. ...|..clockt|
|000002e0| 65 78 74 24 3d c2 91 24 | 2c 38 29 0d 01 22 38 e7 |ext$=..$|,8).."8.|
|000002f0| 20 75 70 64 61 74 65 25 | 3d b9 20 8c 20 f2 73 79 | update%|=. . .sy|
|00000300| 73 5f 75 70 64 61 74 65 | 77 69 6e 64 6f 77 28 63 |s_update|window(c|
|00000310| 6c 6f 63 6b 25 2c 30 2c | 2d 36 34 30 2c 36 34 30 |lock%,0,|-640,640|
|00000320| 2c 30 29 0d 01 2c 0e f2 | 69 6e 66 6f 28 62 2b 34 |,0)..,..|info(b+4|
|00000330| 29 0d 01 36 19 73 65 63 | 3d bb 28 c2 63 6c 6f 63 |)..6.sec|=.(.cloc|
|00000340| 6b 74 65 78 74 24 2c 32 | 29 29 0d 01 40 24 6d 69 |ktext$,2|))..@$mi|
|00000350| 6e 3d bb 28 c1 63 6c 6f | 63 6b 74 65 78 74 24 2c |n=.(.clo|cktext$,|
|00000360| 34 2c 32 29 29 2b 28 73 | 65 63 2f 36 30 29 0d 01 |4,2))+(s|ec/60)..|
|00000370| 4a 22 68 72 73 3d bb 28 | c0 63 6c 6f 63 6b 74 65 |J"hrs=.(|.clockte|
|00000380| 78 74 24 2c 32 29 29 2b | 28 6d 69 6e 2f 36 30 29 |xt$,2))+|(min/60)|
|00000390| 0d 01 54 16 e7 20 68 72 | 73 3e 31 32 20 8c 20 68 |..T.. hr|s>12 . h|
|000003a0| 72 73 2d 3d 31 32 0d 01 | 5e 13 68 78 3d b5 28 68 |rs-=12..|^.hx=.(h|
|000003b0| 72 73 2f 64 69 76 31 32 | 29 0d 01 68 13 68 79 3d |rs/div12|)..h.hy=|
|000003c0| 9b 28 68 72 73 2f 64 69 | 76 31 32 29 0d 01 72 13 |.(hrs/di|v12)..r.|
|000003d0| 6d 78 3d b5 28 6d 69 6e | 2f 64 69 76 36 30 29 0d |mx=.(min|/div60).|
|000003e0| 01 7c 13 6d 79 3d 9b 28 | 6d 69 6e 2f 64 69 76 36 |.|.my=.(|min/div6|
|000003f0| 30 29 0d 01 86 13 73 78 | 3d b5 28 73 65 63 2f 64 |0)....sx|=.(sec/d|
|00000400| 69 76 36 30 29 0d 01 90 | 13 73 79 3d 9b 28 73 65 |iv60)...|.sy=.(se|
|00000410| 63 2f 64 69 76 36 30 29 | 0d 01 9a 04 0d 01 a4 1f |c/div60)|........|
|00000420| 73 6c 78 25 3d 28 b5 28 | 28 73 65 63 2d 31 35 29 |slx%=(.(|(sec-15)|
|00000430| 2f 64 69 76 36 30 29 29 | 2a 31 36 0d 01 ae 1f 73 |/div60))|*16....s|
|00000440| 6c 79 25 3d 28 9b 28 28 | 73 65 63 2d 31 35 29 2f |ly%=(.((|sec-15)/|
|00000450| 64 69 76 36 30 29 29 2a | 31 36 0d 01 b8 1f 73 68 |div60))*|16....sh|
|00000460| 78 25 3d 28 b5 28 28 73 | 65 63 2b 31 35 29 2f 64 |x%=(.((s|ec+15)/d|
|00000470| 69 76 36 30 29 29 2a 31 | 36 0d 01 c2 1f 73 68 79 |iv60))*1|6....shy|
|00000480| 25 3d 28 9b 28 28 73 65 | 63 2b 31 35 29 2f 64 69 |%=(.((se|c+15)/di|
|00000490| 76 36 30 29 29 2a 31 36 | 0d 01 cc 04 0d 01 d6 1f |v60))*16|........|
|000004a0| 6d 6c 78 25 3d 28 b5 28 | 28 6d 69 6e 2d 31 35 29 |mlx%=(.(|(min-15)|
|000004b0| 2f 64 69 76 36 30 29 29 | 2a 31 32 0d 01 e0 1f 6d |/div60))|*12....m|
|000004c0| 6c 79 25 3d 28 9b 28 28 | 6d 69 6e 2d 31 35 29 2f |ly%=(.((|min-15)/|
|000004d0| 64 69 76 36 30 29 29 2a | 31 32 0d 01 ea 1f 6d 68 |div60))*|12....mh|
|000004e0| 78 25 3d 28 b5 28 28 6d | 69 6e 2b 31 35 29 2f 64 |x%=(.((m|in+15)/d|
|000004f0| 69 76 36 30 29 29 2a 31 | 32 0d 01 f4 1f 6d 68 79 |iv60))*1|2....mhy|
|00000500| 25 3d 28 9b 28 28 6d 69 | 6e 2b 31 35 29 2f 64 69 |%=(.((mi|n+15)/di|
|00000510| 76 36 30 29 29 2a 31 32 | 0d 01 fe 04 0d 02 08 1e |v60))*12|........|
|00000520| 68 6c 78 25 3d 28 b5 28 | 28 68 72 73 2d 33 29 2f |hlx%=(.(|(hrs-3)/|
|00000530| 64 69 76 31 32 29 29 2a | 31 30 0d 02 12 1e 68 6c |div12))*|10....hl|
|00000540| 79 25 3d 28 9b 28 28 68 | 72 73 2d 33 29 2f 64 69 |y%=(.((h|rs-3)/di|
|00000550| 76 31 32 29 29 2a 31 30 | 0d 02 1c 1e 68 68 78 25 |v12))*10|....hhx%|
|00000560| 3d 28 b5 28 28 68 72 73 | 2b 33 29 2f 64 69 76 31 |=(.((hrs|+3)/div1|
|00000570| 32 29 29 2a 31 30 0d 02 | 26 1e 68 68 79 25 3d 28 |2))*10..|&.hhy%=(|
|00000580| 9b 28 28 68 72 73 2b 33 | 29 2f 64 69 76 31 32 29 |.((hrs+3|)/div12)|
|00000590| 29 2a 31 30 0d 02 30 04 | 0d 02 3a 0e 61 68 78 25 |)*10..0.|..:.ahx%|
|000005a0| 3d 68 78 2a 34 30 0d 02 | 44 0e 61 68 79 25 3d 68 |=hx*40..|D.ahy%=h|
|000005b0| 79 2a 34 30 0d 02 4e 0e | 61 6d 78 25 3d 6d 78 2a |y*40..N.|amx%=mx*|
|000005c0| 36 30 0d 02 58 0e 61 6d | 79 25 3d 6d 79 2a 36 30 |60..X.am|y%=my*60|
|000005d0| 0d 02 62 0e 61 73 78 25 | 3d 73 78 2a 38 30 0d 02 |..b.asx%|=sx*80..|
|000005e0| 6c 0e 61 73 79 25 3d 73 | 79 2a 38 30 0d 02 76 04 |l.asy%=s|y*80..v.|
|000005f0| 0d 02 80 0e 68 78 25 3d | 68 78 2a 31 35 30 0d 02 |....hx%=|hx*150..|
|00000600| 8a 0e 68 79 25 3d 68 79 | 2a 31 35 30 0d 02 94 0e |..hy%=hy|*150....|
|00000610| 6d 78 25 3d 6d 78 2a 32 | 32 30 0d 02 9e 0e 6d 79 |mx%=mx*2|20....my|
|00000620| 25 3d 6d 79 2a 32 32 30 | 0d 02 a8 0e 73 78 25 3d |%=my*220|....sx%=|
|00000630| 73 78 2a 32 36 30 0d 02 | b2 0e 73 79 25 3d 73 79 |sx*260..|..sy%=sy|
|00000640| 2a 32 36 30 0d 02 bc 04 | 0d 02 c6 1b 63 78 25 3d |*260....|....cx%=|
|00000650| 62 78 25 2b 63 65 25 3a | 63 79 25 3d 62 79 25 2d |bx%+ce%:|cy%=by%-|
|00000660| 63 65 25 0d 02 d0 0c c8 | 95 20 6d 6f 72 65 25 0d |ce%.....|. more%.|
|00000670| 02 da 07 e6 20 30 0d 02 | e4 1d c8 8f 20 c8 90 20 |.... 0..|.... .. |
|00000680| 62 78 25 2b 63 65 25 2c | 62 79 25 2d 63 65 25 2c |bx%+ce%,|by%-ce%,|
|00000690| 32 38 30 0d 02 ee 08 e6 | 20 31 35 0d 02 f8 17 ec |280.....| 15.....|
|000006a0| 20 63 78 25 2d 61 6d 78 | 25 2c 63 79 25 2d 61 6d | cx%-amx|%,cy%-am|
|000006b0| 79 25 0d 03 02 17 ec 20 | 63 78 25 2b 6d 6c 78 25 |y%..... |cx%+mlx%|
|000006c0| 2c 63 79 25 2b 6d 6c 79 | 25 0d 03 0c 06 c8 96 0d |,cy%+mly|%.......|
|000006d0| 03 16 1a f0 20 38 35 2c | 63 78 25 2b 6d 68 78 25 |.... 85,|cx%+mhx%|
|000006e0| 2c 63 79 25 2b 6d 68 79 | 25 0d 03 20 18 f0 20 38 |,cy%+mhy|%.. .. 8|
|000006f0| 35 2c 63 78 25 2b 6d 78 | 25 2c 63 79 25 2b 6d 79 |5,cx%+mx|%,cy%+my|
|00000700| 25 0d 03 2a 0a e6 20 33 | 32 2c 32 0d 03 34 17 ec |%..*.. 3|2,2..4..|
|00000710| 20 63 78 25 2d 61 73 78 | 25 2c 63 79 25 2d 61 73 | cx%-asx|%,cy%-as|
|00000720| 79 25 0d 03 3e 17 ec 20 | 63 78 25 2b 73 6c 78 25 |y%..>.. |cx%+slx%|
|00000730| 2c 63 79 25 2b 73 6c 79 | 25 0d 03 48 1a f0 20 38 |,cy%+sly|%..H.. 8|
|00000740| 35 2c 63 78 25 2b 73 68 | 78 25 2c 63 79 25 2b 73 |5,cx%+sh|x%,cy%+s|
|00000750| 68 79 25 0d 03 52 18 f0 | 20 38 35 2c 63 78 25 2b |hy%..R..| 85,cx%+|
|00000760| 73 78 25 2c 63 79 25 2b | 73 79 25 0d 03 5c 08 e6 |sx%,cy%+|sy%..\..|
|00000770| 20 31 32 0d 03 66 17 ec | 20 63 78 25 2d 61 68 78 | 12..f..| cx%-ahx|
|00000780| 25 2c 63 79 25 2d 61 68 | 79 25 0d 03 70 17 ec 20 |%,cy%-ah|y%..p.. |
|00000790| 63 78 25 2b 68 6c 78 25 | 2c 63 79 25 2b 68 6c 79 |cx%+hlx%|,cy%+hly|
|000007a0| 25 0d 03 7a 1a f0 20 38 | 35 2c 63 78 25 2b 68 68 |%..z.. 8|5,cx%+hh|
|000007b0| 78 25 2c 63 79 25 2b 68 | 68 79 25 0d 03 84 18 f0 |x%,cy%+h|hy%.....|
|000007c0| 20 38 35 2c 63 78 25 2b | 68 78 25 2c 63 79 25 2b | 85,cx%+|hx%,cy%+|
|000007d0| 68 79 25 0d 03 8e 17 c8 | 99 20 47 65 74 52 2c 30 |hy%.....|. GetR,0|
|000007e0| 2c 62 20 b8 20 6d 6f 72 | 65 25 0d 03 98 05 ce 0d |,b . mor|e%......|
|000007f0| 03 a2 0d 75 70 64 61 74 | 65 25 3d b9 0d 03 ac 05 |...updat|e%=.....|
|00000800| cd 0d 03 b6 05 e1 0d ff |                         |........|        |
+--------+-------------------------+-------------------------+--------+--------+